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SERIES“III PL/M-&6 V2.0 COMPILATION OF MODULE NML | 
OBJECT MODULE PLACED IN :F1:MNML.O3J 
COMPILER INVOKED 3Y: PLM38&.86 sFYS4NML.SRC OPTIMIZEC3) XREF SETCFI1) DEBUG 


SCOMPACT OPTIMIZE=(3) 
kee WARNING 10 IN 1 CLINE 1): RESPECIFIED PRIMARY CONTROL, IGNORED 
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KkKKKREKKKK Last update Time 13:00 Date 11:06:81 xxxkxxeaaKKx 
Te TSC CCC CSoCCCCCLSSCLS CSCS SSS OLCCS CLS SS CST Ce SSS SC eS Tee ee ee, 


a ae 

INCLUDE (C:F7icpyrt.adcp) 
SESE 

SINCLUDE (C:Flicpyrt.dep) 


/*x Intel Corporation Propristary Information. 
This listing is supplied under the terms of a 
license agrement with Intel Corporaton and 

may not be copied nor disclosed except in 
accordance with the terms of that agreement. */ 


1 NMLs DO; 

Snolist 

SIF 7 

Sinclude C:f7:Mstrb.ince) 

include (€:f7:Mopnrb.inc) 

Seuse 

Sinelude Croft eMstrb.ine) 

/*x type declaration for standard tel request block : 041081 10:25 */ 


declare stirbityps literally 
“structure(mippart (7) word-req BYTE, 
resp 3YTE-rtntmipgskt WORD-Link POINTER-CIO WORD,-seq WORD-clientSuss WORD, 
bufSlen WORD,-numSblks BYTE, 
SLK1$ptr pointer,Slk1$len word) ’; 


[xee*ek Request Block for TCL Standard requests *** QO3/01/81 *x* 


a 
= mipSptr POINTER, «kx Q ** 
= minSbufSbase POINTER, *x 4&4 * 
= minSlength WORD, zk 8 a 
= mipsidsSid BYTE, kk A = 10T x 
= mipSownerd3devsid 3YTE, ke  B = 11T x* 
= internalSprocesssid WORD, xx C = 12T for failure handler, not SCL process IB *K 
= req BYTES zx E€ = 14T Code for type of request x 
= resp BYTE-+s xx F = 15T reponse code: ok. or error type x* 
= rtnsmipSskt WORD, kx 10 = 167 return address: CMX mbx or MIP socket ** 
= link POINTER, ** 42 = 18T optional chain to another RB ** 
= Cro WORD, xx 16 = 22t returned by open processing KK 
= seq WORD, kk 18 = 24t reserved for TCL kk 
= client$use WORD, xk TA reserved for client use *x 


PL/M=86 COMPILER 


pa 
nN 
co 
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NAL 
buft3lean WORD, kk AC 
num$blks 3YTE, kk TE 
BlkiSptr POINTER, x** 1F 
31k1Slen WORD, kx 23 
25 


xf 
$Sinclude (:ft:Mopnrb.inc) 
/* Type declaration for open request blocks 


declare tclpart literally 


bow ou ue ou 
ul 
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total no of client data bytes xx 
number of data blocks * x 
Block 1 pointer 


Block 1 length 
standard request block size 


081 10:45 x/ 


"req BYTE-resp BYTE-rtnsmiptskt WORD-Link POINTER, 


CID wORDslocSport wORD-reminet 


WORD,ramsShost(3) WORD, 


remSport WORD-persist WORD-vabort$timeout WORD-seq WORD’, 


opensrb$type literally 
“structure(mippart(7)word,tclpart) ’; 


c 


[xkkxkxeke Request Block for the TCL Open reg 
emxsptr POINTER, xk 6 
mipsbufsbasea POINTER, kk 4 
mipSlength WORD, kk = 3 
mipSsidsS$id BYTE+s | ke OR 
mipSownearsSdevsid BYTE, kk OB 
ownerSprocessSid WORD, ee OC 
reg BYTE, kk OE 
resp SYTE, kx UF 
rinSmipSskt WORD, xx 10 
link POINTER, xx 42 
Cro WORD, wk 16 
loc$port WORD, ee 46 
remsnet . WORD, xx 4A 
remBhost(3) WORD, xx 4C 
remSport WORD, xk 22 
persist WORD, ke 24 
abort3timeou WORD, kk 26 
$2 WORD, xx 28 

xx 2A 

x / 

SENDIF 

BCL 
Nibmbx1 byte external, /* All commands from 
NMLmbx2 byte external, /*x Buffers supplied f 
NMLmbx3 byte external, /x* Suffers supplied hb 
NMLmbx4 byte external, 
NMLSSOCKET LITERALLY “*C0Q02ZH’, 
NMLSSCRSSOCKET LITERALLY ’O003H’, 
TCLSSOCKET LITERALLY °0004H’, 
NMLSPORT LITERALLY ’0003H’, 


READSTYPE 
REAODCSTYPE 


LITERALLY °0%, 
LITERALLY 


/x TR 


KEKE KEKREKKKKKKEKEKEKEKKKKKEKKKKRKKKK 


for cmx/mip to use ** 

: kk 

kk 

: MIP fields: required for **x 

: any comm subsystem ** 

: “xx 

Code for type of request *x 
reponse coda: ok or error type ** 


return address: kaos mbx or MIP socket ** 
to rb tel keeps for abort signaling ** 
cid returned by open processing ** 


local port for connection *x* 

remote net id : * 

remote host id : socket x 

remote port id : *x* 

no times to ignore remote connect refusal ** 


optional abort timeout value ** 
reserved for TCL xx 
size of open request block 


MIP come to this port */ 
or boot are queued here */ 


y NCP and others are queued herea */ 


ANSPORT port */ 
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SeTSTYPs LITERALLY 


2°, 
CAUSE_LEVENTSTYPE literally ’3’, 
READEMEMORYSTYPE Literally °47’, 
SETPEMEWHORYSTYPE literally ’57’; 
129 4 dcl ai bytercdummy word, 


{ 


VECTOR: proceadure (€A,3,C, V) byte external, 
DECLARE (8-8, V) word, C pointer, 
END VECTOR; 


a 
iN Ua 
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153 1 LINEZWATCHER: procedure CPACKETSO) PUBLIC, 
[KR KK KI IK I RK RK KK IO RO FOR FOR FOR FORO FIR OK IO TOK FIO FOR IIR IK I IK IO Oe 


LINESWATCHER: 


The address of this routine is passed to 800T via CQBOOTREGISTER 


call. Whenever boot receives a net management type packet, it 
calls LINESWATCHER process if it does not know what to do with 
pie Two types of buffers may be supplied to NET management 


Layer. One by the bootstrap servers, and other by NCP and other 
utilities. The S8o0o0tstrap server expects two types of packets: 
BOOTSREQUEST Cemd = 04) and | 
BOOTSDATASREQUEST Ccmd = O6h). | 
If the received packet is one of the above, it copies it to a 
bootstrap sarver supplied buffer, otherwise it copies it to the 
NCP supplied buffer, If no buffer is supplied the incoming 
packet is ignored. In any case the buffer is returned to 


DATA LINK receive buffer pool, 
CEC ececceeececerCeeeeCecCLecCLeceLoeCreCoCce.ecceerc@receorrrereree cee s 2 oe a 


134 2 DCL packatS$o word, 
packet based packetso structure ( 
KAOS pointers 
LEN word, 
OLDEST(3) word, 
DLSRC(3) word, 
DLTYPE word, 
SO00TCMD byte, /**x Boot COmmand Field «x/ 
STUFFC(1499) byte), /xx First bytes used for Bootecmd *x*/ 
BO0O0TSREQ literally °’47’, /xx Dafined in BOOT EPS xx/ 
BOOTSDATASRES literally ‘67%, {xx Defined in BOOT EPS x*x/ 
135 Z COPY: procedure (MBX); 


/xxx* Copies contents of received packet to buffer lying on 
specified mailbox. Ignore if buffer not availabies. . aKa / 


DCL MBX word, (BUFSQ, BUFSF) word, BUFEP pointer AT C3RBUFSO)- 
BUF BASED BUFSP STRUCTUREC 
MIP (12) bytes 


_— 
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PROCIO word, 
CMO byte, 
RESULT byte, 
RESPSSOC word, 
LEN word, 


STUFF(1514) byte); 


137 3 BUFSP = CQSCRECEIVE CMS8X); 

TSG. SS IF 3UFSO <> OQFFFFH then do, 

140 4 CALL MOVB C&PACKET.LEN, SBUF.LLEN, PACKET.LEN+t2);3 

141 4 CALL COMIPSSEND C3UF.LRESPSSOC, 3UFSP); 

142 4 ENDIF; 

143 2 END COPY; 

144 2 If packet.abootemd = BOOTSREQ or packetebootemd = SO00TSOATASREQ 

145 2 then call COPY (.NMLmbx2)7 /** copy into bootserver buffer x**/ 

146 2 else call copy (.NMLinbx3),; /xx copy into NCP buffer x*x*/ 

147 2 CALL CQDLLRXRETBUF CPACKETSO); /x* return packet to RBP «x*/ 

148 2 END LINESWATCHER; 

149 1 EXECUTE: procedure CREQEPTR, RESPSPTR, RESPSMAX, RESPSLENSO); 
| KK KK KKK KKK I KI RIK KK KK KK KK KK IKI KK KK KIKI K KEIR RRR KR KR RK RK 
EXelUTes 
This routine process the REQUEST at req 3ptr and puts the 
result in the area pointed by RESPSPTR. The request can 
-be READ, READC or SET. The objects, modifier, lens, value 
fields are as dascribed in the NML EPS. reaqtptr should 
point to the type filed of the NML request block. 
EXECUTE is called by NML = ie command processor for local 
commands and by the remote executor when a remote command 
is received. 
KK KK IKK KK KKK KK KR TO FOTO IO OI ROTI kk kkk ek / 

150 2 del CREQSPTR, RESPSPTR) pointer, CRESPSMAX, RESPSLENSO) word, 


RESPSLEN BASED RESPSLENSO word, 

CREQSO, REQSF) word AT CAREQSPTR)-, /xxe Will increment reqdo x*x/ 
TypeSnfnum based reqgptr structure (type bytes num byte), 

FUNCT byte, modifier word, len byte, 

rnngSbufSlen word, | 

object word, (Cobject3l, object$h) byte at (object), 

REQ BASED REQSPTR STRUCTURE ¢ 


OBJECT word, 
MODIFIER word, 


rp rm WWOo! UI po mr 


OU WO) 
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LEN byte, 
VALUEC1) byte) , 


RESP BASED RESPSPTR STRUCTURE ¢ 
Os0= CT word, 
MODIFIER word, 
LEN byte, 
VALUE(1) byte), 


CRESPSO, RESPSF) word AT CBRESPSPTR), /x* Will increment resp3o *x/ 


svd$Sresp3PTR pointer, /xx Will point to beginning of RESP area *x/ 
(svd3resp30, svdSresp3F) word AT CasvdtrespSPTR), 


RESPSnum BASED svdSrespSPTR byte- 
DECLARE NUMSOSJECTS byte, 


RMSreq based reqiptr structure (¢ 
type byte, 
pointr pointer, 
len byte), 


Set3req based req$ptr structure (¢ 
type byte, 
pointr pointer, 
len byte, 
value (1) bytead, 


Eventtreq based reqtptr structure (¢ 
type byte, 
event word, 
params (1) byte), 


Event$resp based resptptr byte; 


del LAYERC2) STRUCTURE CFUNCTC3) word) DATA ¢ 
»CQOLLREAD, eCQDLLREADC, .CQDLLREAOQ, 
»~TCLREAD, »~>TCLREADC, »TCLSET)> 


= 0; 


espslen 
= RMtreq.len, 


M 


if (funct 3:= typeSn$numetype) = READSMEMORYSTYPE then doz 


if i >= respSmax then i = respSmax - 17 
call movb (RM$req.pointr, respSptrs, id; 
respSlen = i, 

end, 


else if funct = SETESMEMORYSTYPE then 
call movb (aSETSreq.valus, SETtreq.pointr, SeéTSreqeland; 


else if funct = CAUSE_EVENTSTYPE and Event3req.event = 0101h then do, 
Event$Sresp = Add3CDOBSMemory (SEventsreq.params); 
respslen = 12 
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168 3 end; 
169 Ps else if FUNCT <= SETSTYP= then dos 
171 3 svdSresp3PTR = R=ESPSPTR; /* Save resp3ptr x/ 
172 s respi3num = OG; 
1735 3 RESP3SO = RESPSO + 1, /x begin object rasponses here */ 
174 3 NUMSCBJECTS = typeSnSnum.nums 
75 3 REQ30 = REQSO + 2, 
176 3 do while numtobjects > OF 
[KKK KKK IK KI KK TKR TOR ORO OR ROR IO RI RIO FIO OI ie 
Processes Layer Objects. Makes an Appropriate 
CALL to the Layer specified in the Object. The High 
byte of the Object is 0 for DLL Objects and 1 for 
TCL Objects. 
TEC CCC eC CCSOCCCSSSCCSOSCSCSCCSCSOSCLCSSCLCCOLC CL OCT SSS Se, 
177 4 object = req.object; 
178 4 modifier = req.modifier; 
179 4 len = req.len, 
180 4 rnng$buf3len = resp$max —- (Crespto ~- svdSresp3$o0 + 5); 
181 4 If object$h > 2 /x Tllecal object x*/ 
or rmangdsbufslen < 6 /x Less than 6 bytes left in resp buffer x«/ 
or len > 6 /* Invalid length in request */ 
or Cobject = 100h and rmngsbuf3slen < maxcdbs) 
/x . 
Special case for CIOVECTOR - the buffer len should not be less 
than the size of the CIDVECTOR | 
left in the response buffer. 
x / 
182 4 then return; 
133 4 if len <> 0 then call movb (dreq.value,y @resp.avalue, len); 
185 4 REQSO = len t REQSO + 5, 
1686 4 len = VECTOR (COBJECTE1, MODIFIER, 3resp.evalu3, 
Layer Cobject$h). funct Cfunct)); 
187 4 if lan <> 0 then do; 
189 , Respelen = len; 
190 5 RESP.OBJECT = OBJECT; 
191 5 respsmodifier = modifier; 
192 5 RESPSO = len + 5 + RESPSO;z 
193 5 respSnum = rasp$num + 1; 
194 5 ENDIF; 
195 4 NUMSOBJECTS = NUMSOSJECTS - 1, 
196 4 end, /x do x/ 
197 5 RESPSLEN = RESPSO - svdSresps0- 


end; 
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procedure PUBLIC; 


LK RK KKK IKK KK KKK KKK KKK KKK KKK KK KEKE KR KKK KKK KR KKK KKK 


NML = COMMAND PROCESSOR 
FORK IKK IK I RR ROK RIOR RK I KK OK IO RK RK Ke | 


DECLARE REGSPTR pointer; 
DECLARE REQ BASED REQSPTR STRUCTURE (¢ 
MTP (12) byte, 
PROCCIO address, 
CMD bytes 
RESULT bytes 
RESPSSOC address, 
RESP2°TR pointer, 
RESPSMAX address, 


TYPe byte, 
NUM byte, 
GCBd2&CT address, 


MODIFIER address, 
LEN byte, 
VALUEC3) address), 


dcl respiptr pointer, 


TAKESACK?! procedure (MBX); 


DECLARE MBX word, CBUFSO, BUFSF) word, BUFSP pointer AT C3BUFSO); 


LOOP, 

BUFSP = CQ$CRECEIVE CMBX), . 

IF BUFSO = OFFFFH THEN EXITLOOP? 

CALL CQMIPSSEND CREQ.RESPSSOC, BUFSP); 
ENOLOOP, 
CALL CQMIPSSEND CREQ.RESPSSOC, AREQ); 


END TAKEBACK, 


CALL COMISSCONNECT CLOWCNMLSSOCKET), .wNMLMBX1);7 
CALL CQSBOOTREGISTER C,.LINESWATCHER); 
DO FOREVER, 

RECSPTR = CQRECEIVE (€.NMLN3X1), 

REQ.RESULT = QO,7 /x* DEFAULT TO SUCCESS x/ 

i = req.cmd, 


if i = 1 then 
{xxx READ, READC or Se&T request *xx/ 
do; 
if not getSchkSaddress (Creq.srespSptr, .respsptr) then 
/x BAD response pointer - return req block x/ 
req.aresult = 1; . 

alse CALL EXECUTE CARENQ.TYPE, RESPSPTR», REQ.LRESPSMAX, wDUMMY); 
CALL CQMIPSSEND CREQ.AZRESPSSOC, REGSPTR); 
end, 


else if i = 2 then 
{xxx SUPPLYBUF for Boot strap server *xx/ 
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CALL CQOSEND CANMLMBX2, REQ); 


alse 


at i oS Be 


hen 
/xxk SupplyBuf for NCP xxx/ 


CALL CQSEND C2NMLMBX3, 2REQ);7 


else 


C 


else 


if i= 4t 
ALL TAKEBA 


ay ae. a 


han ; 
/xxx TAKEBACK bootstrap server buffers **xx/ 
CK C.~NMLMBX2); 


hen 
/xxe TAKEBACK NCP buffers **x/ 


CALL TAKEBACK C.NMLMBX3), 


else 


do; 


req.result | 
call CQSMIPSEND (Cregq.eresptssocy, reqsptr); 


end; 


ENDOO, 
END NMLz 


DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
CECLARE 


Declare 
QO, O- 
0, Q+ 
0, 0, 
QO, O- 


declare 


DECLAR= 
DECLARE 
DECLARE 


TCLSOPENP 
TCLSCLOSE 
TCLSSEND 


{xxk Invalid Command - return 1 *xx*/ 
= |; 


LITERALLY 
LITERALLY 


TCLSSENDSEOM LITERALLY 


TCLSPOSTS 
TCLSABORT 


Open3sR38 o 


R3UF LITERALLY 


fe | a 
a Tie 
LITERALLY “5°; 
ee aa 
by aie 
LITERALLY “8°; 


pentrb3type initial ¢ 


O, O, 0, 0, -0- /*x mip part and process ID x/ 


NMLSSCRSS 


Or, O- O- 
0); 
TCL3rb st 


FCUTOR: pr 


respsptr 


RCV$BUFL 
AMITSBUFL 
RCVSBUF 


OCKET, O- O- /x Req, resp, rtnssocket, Links, cid */ 
0, /x loc3port, remSnet, remShost, remiport */ 
/* parsists, aborts seq *«/ 


SrbStype at Cad0nenSrh); 


ocedure PUBLIC, 
LK KK KKK KIRKE KKK KKK IK IK KKK KKK KKK KK KKK KEKE KKKKEKKKKK KK KK KKK 
REMOTE EXECUTOR: 
Processes READ, READC and SET commands received over TCL from 
a remote node. It does an open passive to TCL. When anything 
is received it executes it and sends the results back. 
-It then aborts the connection and reopens another 
SOK OI ROK RR ROTOR OR III I UK Rk ok ok kok kk / 


pointer; 


LITERALLY °100%, 
LITERALLY °200’%; 
CRCVSBUFL) bytes 


& 
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DECLARE XMITS$BUF CXMITSBUFL) byte? 


CALL CQMIPSCONNECT CLOWCNMNLSSCRSSOCKET), w«NMLMBX4), 


DO FOREVER, 


call setw CO,-20pens&8.cid,9); 
OpentR8.Req = TCLSOPENP; 
OpensSR8.LocSport = NMLSPORT; 


/x Zero cid field to abortStimeout field */ 


CALL CQOMIPSSEND (TCLESOCKET, @0pen$R8), /x Passive Open Request for any */ 
respSptr = CQSRECEIVE (C.NMLMBX4); /* remote node and port x/ 
TCL3rb.req = TCLSPOSTSRBUF, /* Post Receive Suffer command x«x/ 
TCL$rb.numsblks 1; 

TCLErb»~3SLKISPTR COSHIPgetmipform CaRCVSB8UF);, /* Translate address to mip form x*/ 
TCLErb.3LKI1S3LEN = RCVEBUFL, /x Butfer Length *«/ 

CALL CQOMIPSSENO CTCLSSOCKET, aTCLSrb); 
respSptr = CQSRECEIVE (.NMLMBX4), 


/* Wait till a remote command is revd */ 


If not TCL$rb.resp or (TCLSrb.bufSlen = 0) then TCLErb.numSblks = 0, 
else /* If good rev then execute command */ 
CALL EXECUTE CRRCVBUF, AXMITBUF, XMITSBUFL, .TCL3rb.~aLKIslen)-, 


TCLErb.req = TCL3Close, /* SEND the result and close connection*/ 
TCLErb.BLKISPTR = CQSMIPgetminform CAXMITBUF); 
CALL CQMIPSSEND (CTCLSSOCKET, STCLErhb), 


resotnotr = CQPRECEIVE C.NMLMBX4);, /* Wait till SEND-close complete «/ 


/x GO DO ancther Passive Open */ 


ENDOO;s 


END NML? 
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OCOQH 
OQO0H 
QOCCH 
QOQEH 
OOOFH 
0010H 
0012H 
00144 
O01CH 
O006H 
0004H 
OO1AH 
OO1AH 
0004H 
000CH 
GOOCH 
O000H 


OOGOH - 


DOQOGH 
OO000H 
O0O0H 


OO2DH 
OCOCH 
QQ00K 
COO00K 
OOO00H 
OQ00H 
QO000H 
OOOOH 
OOO0H 


PO FO PO PY FU DD PO 


MPM pop nr po & ef 


1534 


—_ 
rd 
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oo 


NAME 


RereR ence LISTING 


vy ATTRIBUTES, 


AND 


ALAR 


ALARMP 


ALAR 
Be 
3 


SUPE 
BUFF 
SUFO 


MP 


MP 


RESULT 
RESPSOC 
LEN. . 
STUFF. 
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CQBCOTREGISTER 


CQCHECKALARM 
CQCLEARALARM 


CQCREATEALARM, 


CCCREATELIST 


CQCR 


CQCREATESEMAPHORE 


m 


EATEMAILBOX, 
CQCREATEPROCESS., 


WORD IN 


PROC 


OC (CQDLLSET) PARAMETER 


(TCLREAD) PARAMETER 


CC (CQOLLREADC) PARAMETER 


CTCLREADC) PARAMETER 
CCQ@DLLREAD) PARAMETER 
CTCLSET) PARAMETER 
CVECTOR) PARAMETER 


PROCEDURE BYTE EXTERNAL(C37) STACK=O0000H 


POINTER 
POINTER 
POINTER 
POINTER 
WORD IN 
WORD IN 
WORD IN 
WORD IN 
WORD IN 
WORD IN 
WORD IN 


IN 
IN 
IN 
IN 


PROC 


PR 
PR 
PR 
PR 


PROC 


PR 


LITERALLY 
LITERALLY 
STRUCTURE BASEDCBUFP) IN PROC (COPY) 
BYTE ARRAY (12) 


PROC 
PROC 
PROC 
PROC 


(CQCREATEALARM) PARAMETER 


(CQSETALARM) PARAMETER 


(CQCLEARALARM) PARAMETER 
CCOCHECKALARM) PARAMETER 
CVECTOR) PARAMETER 


OC (CTCLREADC) PARAMETER 
OC CTCLREAD) PARAMETER 

OC (CQDLLREADC) PARAMETER 
OC CCRDLLSET) PARAMETER 


CTCLSET) PARAMETER 


OC (CQDLLREAD) PARAMETER 


esd 


o 
a1? 


IN PROC CLINEWATCHER) 
IN PROC (CLINEWATCHER) 


131 
117 
114 
108 
111 
420 
105 
144 
144 


211 
140 
114 
131 
gi ee 


120 
111 


ea. 


WORD 
BYTE 

BYTE 

WORD 141 

WORD 140 

BYTE ARRAY(1514) 

WORD IN PROC (TAKEBACK) 

WORD IN PROC (COPY) 

WORD IN PROC (COPY). 136 138 
WORD IN PROC (TAKEBACK) 205 209 
POINTER IN PROC (TAKEBACK) AT 208% 
POINTER IN PROC (COPY) AT 137% 
POINTER IN PROC (TCLREAD) PARAMETER 
POINTER IN PROC (VECTOR) PARAMETER 
POINTER IN PROC (TCLREADC) PARAMETER 
POINTER IN PROC (CQDLLREADC) PARAMETER 
POINTER IN PROC (TCLSET) PARAMETER 
POINTER IN PROC (CQDLLREAD) PARAMETER 
POINTER IN PROC (CQDLLSET) PARAMETER 
LITERALLY °3’ | 164 

PROCEDURE IN PROC CLINEWATCHER) STACK=OQQ00CH 
PROCEDURE EXTERNAL(26) STACK=0000H 
PROCEDURE BYTE EXTERNAL(21) STACK=0000H 
PROCEDURE EXTERNAL(22) STACK=0000H 
PROCEDURE EXTERNAL(19) STACK=0000H 
PROCEDURE EXTERNAL(1) STACK=O000H 
PROCEDURE EXTERNAL(9) STACK=0000H 
PROCEDURE EXTERNAL(4) STACK=O000H 
PROCEDURE EXTERNAL(5) STACK=Q000H 
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141 


108 


105 


145 


146 
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CROSS-REFERENCE LISTING 


CQCRECEIVE . 
CQCWAIT. . . 
CQOLLREAD. . 
CQOLLREADC . 
CQOLLRXRETSUF. 
CRUEL SET ar ows 
CQHALTANDCATCH 
CQICRECEIVE. . 
CQICWATT «2. « « 
CQTISEND. « « « 
CQISIGNAL. .. 
CQMIPCONNECT . 
CQMIPGETADDRESS. 
CQOMIPGETMIPFORM, 
CQMIPSEND. «© « « 


FIR 


CQMRECEIVE . « e 
CQOREADCLOCK. « « 
CQRECEIVE. as @ a 


CQSCHEDULE 
CQSEND . . 
CQSETALARM 
CQSIGNAL . 
CQSTART. . 
CQWAITSEM. 
DATARTNO . 
OCL. «2 2 


DELAYH . 
DELAYL . 
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